home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Frames of Reference / card_9411.txt < prev    next >
Text File  |  1990-04-02  |  4KB  |  127 lines
  1. -- card: 9411 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 9098
  5. -- name: Experiment 1
  6. ----- HyperTalk script -----
  7. on runExperiment
  8.   global cardClear1
  9.   global dropHeight1,cartSpeed1
  10.   global timeIncrement1,trace1
  11.  
  12.   put 300 into floorY
  13.   put the loc of button "ball" into oldPoint
  14.   put (floorY-dropHeight1) into dropY
  15.   put 0 into timeElapsed
  16.   put 20 into dropX
  17.   set the loc of button "Ball" to dropX,dropY
  18.   put dropY-29 into electroY
  19.   put 9800 into G  --Gravity in mm/s/s
  20.   put false into cardClear1
  21.   hide menubar
  22.   choose line tool
  23.   set the lineSize to 2
  24.   put "Click the mouse to stop." into field "Blurb"
  25.  
  26.   repeat until the mouse is down
  27.     put (dropY+(G*timeElapsed*timeElapsed)/2) into y
  28.     if y > floorY then exit repeat
  29.     put (dropX+cartSpeed1*timeElapsed) into x
  30.     if x > 413 then exit repeat
  31.     put round(x) into item 1 of newPoint
  32.     put round(y) into item 2 of newPoint
  33.     set the loc of button "ball" to newPoint
  34.     if trace1 is true then drag from oldPoint to newPoint
  35.     set the loc of button "electromagnet" to round(x),electroY
  36.     put newPoint into oldPoint
  37.     put timeElapsed+timeIncrement1 into timeElapsed
  38.   end repeat
  39.  
  40.   choose browse tool
  41.   show menubar
  42.   put "Click on this field to restore the screen." into field "Blurb"
  43.  
  44. end runExperiment
  45.  
  46. on openCard
  47.   global cardClear1,dropHeight1
  48.   if (cardClear1 is true) and (item 2 of the loc of button "ball" <> (300-dropheight1)) then
  49.     put false into cardClear1
  50.     click at the loc of field "blurb"
  51.   end if
  52. end openCard
  53.  
  54.  
  55.  
  56.  
  57. -- part 3 (button)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=3 top=83 right=117 bottom=37
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 8499 / 8499
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Ball
  69.  
  70.  
  71. -- part 4 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=11 top=57 right=85 bottom=29
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 16003 / 16003
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Electromagnet
  83.  
  84.  
  85. -- part 5 (field)
  86. -- low flags: 81
  87. -- high flags: 2004
  88. -- rect: left=11 top=40 right=326 bottom=403
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 12
  94. -- style flags: 256
  95. -- line height: 16
  96. -- part name: Help
  97.  
  98.  
  99. -- part 7 (button)
  100. -- low flags: 00
  101. -- high flags: A002
  102. -- rect: left=16 top=319 right=340 bottom=76
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Return
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   global ReturnCard
  114.   go ReturnCard
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part contents for background part 6
  120. ----- text -----
  121. Press this field to begin tracing the path of the ball.
  122.  
  123. -- part contents for card part 5
  124. ----- text -----
  125.    In this experiment, a metal ball is suspended from an electromagnet which is moving sideways with a constant velocity.  At a certain point, the electromagnet releases the ball, and it falls to earth in a parabola-shaped path.
  126.    This card simulates that experiment.  It will compute and draw the path of the ball based on the parameters you can set by clicking on the "Set Parameters" button in the control panel.  To begin the simulation, click on the field in the control panel which instructs you to do so, and follow any other instructions which appear there.
  127.    For a complete illustration of the experiment this card simulates, click on the "Experiment Video" button in the control panel, and then click on the first button in the list of selections which will appear.